var a,b,cv,dt:integer;
begin
     write('nhap 2 canh ');
     readln(a,b);
     dt:=a*b;
     cv:=(a+b)*2;
     write('dien tich la: ',dt);
     write('chu vi la: ',cv);
     readln;
end.
